PC/CD Review 59/PCR59.iso/scifi_2d/movies/shared.dir/01625_memory scripts.ls

Text File | 1995-06-25 | 4.0 KB | 235 lines

on MEM01
  if the loaded of cast 1300 = 0 then
    preLoadCast(1300)
  end if
  if the loaded of cast 110 = 0 then
    preLoadCast(110)
  end if
  if the loaded of cast 109 = 0 then
    preLoadCast(109)
  end if
  if the loaded of cast 1147 = 0 then
    preLoadCast(1146)
  end if
  if the loaded of cast 397 = 0 then
    preLoadCast(397)
  end if
  if the loaded of cast 2415 = 1 then
    unLoadCast(2415)
  end if
end

on MEM01A
end

on MEM02
  unLoadCast(1300)
  unLoadCast(110)
  unLoadCast(109)
  unLoadCast(1147)
  unLoadCast(397)
  preLoadCast(400, 410)
  if the loaded of cast 112 = 0 then
    preLoadCast(112)
  end if
  if the loaded of cast 114 = 0 then
    preLoadCast(114)
  end if
  if the loaded of cast 116 = 0 then
    preLoadCast(116)
  end if
end

on MEM03
  if the loaded of cast 114 = 0 then
    preLoadCast(114)
  end if
  if the loaded of cast 116 = 0 then
    preLoadCast(116)
  end if
end

on MEM04
  if the loaded of cast 112 = 0 then
    preLoadCast(112)
  end if
  if the loaded of cast 116 = 0 then
    preLoadCast(116)
  end if
end

on MEM05
  if the loaded of cast 112 = 0 then
    preLoadCast(112)
  end if
  if the loaded of cast 114 = 0 then
    preLoadCast(114)
  end if
end

on MEM06
  unLoadCast()
end

on MEM07
  unLoadCast()
end

on MEM08
  unLoadCast()
end

on MEM50
  if the loaded of cast 118 = 1 then
    unLoadCast(118)
  end if
  if the loaded of cast 119 = 1 then
    unLoadCast(119)
  end if
  if the loaded of cast 120 = 1 then
    unLoadCast(120)
  end if
  if the loaded of cast 121 = 1 then
    unLoadCast(121)
  end if
end

on MEM50A
  set BioCast to the castNum of sprite 22
  unLoad(BioCast)
  unLoadCast(2)
end

on MEM51
  if the loaded of cast 122 = 1 then
    unLoadCast(122)
  end if
  if the loaded of cast 123 = 1 then
    unLoadCast(123)
  end if
  if the loaded of cast 124 = 1 then
    unLoadCast(124)
  end if
  if the loaded of cast 125 = 1 then
    unLoadCast(125)
  end if
end

on MEM51A
  set artCast to the castNum of sprite 5
  unLoad(artCast)
end

on MEM52
  global gVersion
  set vidCasttt to the castNum of sprite 20
  unLoad(vidCasttt)
  unLoadCast(3)
  unLoadCast(1400)
  unLoadCast(1401)
  unLoadCast(1404)
  unLoadCast(1405)
  MEM53()
  if the loaded of cast 113 = 1 then
    unLoadCast(113)
  end if
  if the loaded of cast 115 = 1 then
    unLoadCast(115)
  end if
  if the loaded of cast 117 = 1 then
    unLoadCast(117)
  end if
end

on MEM53
  set y to 1690
  repeat while y < 1850
    if the castType of cast y = #digitalVideo then
      if the loaded of cast y then
        unLoadCast(y)
      end if
    end if
    set y to y + 1
  end repeat
end

on MEM55
  unLoadCast(1077)
  unLoadCast(1091)
  if the loaded of cast 126 = 1 then
    unLoadCast(126)
  end if
  if the loaded of cast 127 = 1 then
    unLoadCast(127)
  end if
  if the loaded of cast 128 = 1 then
    unLoadCast(128)
  end if
  if the loaded of cast 129 = 1 then
    unLoadCast(129)
  end if
  if the loaded of cast 130 = 1 then
    unLoadCast(130)
  end if
  if the loaded of cast 131 = 1 then
    unLoadCast(131)
  end if
  if the loaded of cast 132 = 1 then
    unLoadCast(132)
  end if
  if the loaded of cast 133 = 1 then
    unLoadCast(133)
  end if
  if the loaded of cast 134 = 1 then
    unLoadCast(134)
  end if
  if the loaded of cast 135 = 1 then
    unLoadCast(135)
  end if
  if the loaded of cast 136 = 1 then
    unLoadCast(136)
  end if
  if the loaded of cast 137 = 1 then
    unLoadCast(137)
  end if
end

on MEM100
  unLoadCast()
  preLoadCast(1001)
  preLoadCast(1002)
  preLoadCast(1078)
  preLoadCast(1300, 1312)
  preLoadCast(1314, 1317)
end

on MEM101
  global gBookNum
  if gBookNum = 2 then
    unLoadCast(35, 425)
  end if
end

on MEM102
  unLoadCast(1002)
  unLoadCast(1078)
end

on mem999
  global gVersion
  if gVersion = 8 then
    unLoadCast(1, 102)
    unLoadCast(113)
    unLoadCast(115)
    unLoadCast(117, 137)
    unLoadCast(266, 323)
    unLoadCast(1996, 2077)
  else
    unLoadCast(113)
    unLoadCast(115)
    unLoadCast(117, 137)
    unLoadCast(266, 323)
    unLoadCast(1996, 2077)
  end if
end